home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / illuc19.el.z / illuc19.el
Encoding:
Text File  |  1998-05-21  |  2.1 KB  |  85 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; illuc19.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Other authors' names for which this Copyright notice also holds
  14. ;;; may appear later in this file.
  15. ;;;
  16. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  17. ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
  18. ;;; mailing list were bugs and improvements are discussed.
  19. ;;;
  20. ;;; ILISP is freely redistributable under the terms found in the file
  21. ;;; COPYING.
  22.  
  23.  
  24.  
  25. ;;;============================================================================
  26. ;;; Functions
  27.  
  28. (defun ilisp-get-input-ring ()
  29.   "Use instead of get-input-ring coming-input-ring or input-ring."
  30.   (if (eq +ilisp-emacs-version-id+ 'lucid-19)
  31.       (get-input-ring)
  32.       ;; else lucid-19-new
  33.       comint-input-ring))
  34.  
  35.  
  36. (defun ilisp-ring-insert (ring input)
  37.   (if (eq +ilisp-emacs-version-id+ 'lucid-19)
  38.       (ring-insert-new ring input)
  39.       (ring-insert ring input)))
  40.  
  41.  
  42. (defun ilisp-temp-buffer-show-function-symbol ()
  43.   'temp-buffer-show-function)
  44.  
  45.  
  46. (defun set-ilisp-temp-buffer-show-function (val)
  47.   (setq temp-buffer-show-function val))
  48.  
  49.  
  50. (defun ilisp-temp-buffer-show-function ()
  51.   temp-buffer-show-function)
  52.  
  53.  
  54. (defun ilisp-input-ring-index ()
  55.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  56.       comint-input-ring-index
  57.       input-ring-index))
  58.  
  59.  
  60. (defun set-ilisp-input-ring-index (n)
  61.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  62.       (setq comint-input-ring-index n)
  63.       (setq input-ring-index n)))
  64.  
  65.  
  66. (defun ilisp-input-ring-size ()
  67.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  68.       comint-input-ring-size
  69.       input-ring-size))
  70.  
  71.  
  72. (defun set-ilisp-input-ring-size (n)
  73.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  74.       (setq comint-input-ring-size n)
  75.       (setq input-ring-size n)))
  76.  
  77.  
  78. ;;============================================================================
  79. ;;; Epilogue
  80.  
  81. (provide 'il-luc19)
  82.  
  83. ;;; end of file -- il-luc19.el --
  84.  
  85.